home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / prg_casm / snpd9611.zip / JDN_L.C < prev    next >
Text File  |  1996-11-24  |  481b  |  23 lines
  1. .I 0 2
  2. /* +++Date last modified: 12-Jan-1996 */
  3.  
  4. .I 137 1
  5.       int day, yr, mo;
  6. .D 138 1
  7. .I 140 1
  8.       long jdn;
  9. .I 154 1
  10.       if (mo < 1 || 12 < mo)
  11. .D 155 1
  12. .I 157 1
  13.       if (day < 1 || 31 < day)
  14. .D 158 1
  15. .I 163 6
  16.       printf("User specified %d-%s-%d...\n\n", day, months[mo - 1], yr);
  17.  
  18.       jdn = ymd_to_jdnl(yr, mo, day, 0);
  19.       jdnl_to_ymd(jdn, &yr, &mo, &day, 0);
  20.  
  21.       printf("jdn_l(%d-%s-%d) = %ld\n", day, months[mo - 1], yr, jdn);
  22. .D 164 2
  23.